home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / grafix / 3d / iiutilities.lha / IIUtilities / ReduceFrames < prev    next >
Encoding:
Text File  |  1995-01-14  |  1.2 KB  |  37 lines
  1. /*\
  2.  *   This ARexx script is used with StageFrames to let you determine
  3.  *   how to reduce the number of frames in an anim smoothly.
  4.  *
  5.  *   Usage: ReduceFrames <CurrentFrames> <WantedFrames>
  6.  *     Current frames is the number of frames currently in an anim.
  7.  *     Wanted frames is the number (less than CurrentFrames) that
  8.  *     you want an animation to have.  ReduceFrames will give you
  9.  *     the paramters for the Range command (in the Project screen)
  10.  *     that you should use, and the StageFrames paramaters if they
  11.  *     are needed.  If you want a 15 frame anim from a 30 frame
  12.  *     anim then you don't need to run StageFrames first.  A 20
  13.  *     or 8 frame anim however, would.
  14.  *
  15.  *  V1.0 Jan-14-94
  16.  *  IanSmith@psu.edu
  17.  *
  18. \*/
  19.  
  20. Parse Arg CurrentFrames FramesWanted .
  21. If FramesWanted="" Then Do
  22.  Say "Usage: ReduceFrames <CurrentFrames> <WantedFrames>"
  23.  Say "       More help can be found in the header of this file."
  24.  Exit
  25. End
  26.  
  27. Do i=1 To FramesWanted
  28.  If (CurrentFrames*i/FramesWanted)//1=0 Then Do
  29.   If i=1 Then
  30.    i=CurrentFrames/FramesWanted
  31.   Else
  32.    Say "1> StageFrames <staging>" i
  33.   Say "Render every" i||Word("th st nd rd th th th th th th", i//10+1) "frame.  (1,"i*CurrentFrames","i")"
  34.   Exit
  35.  End
  36. End
  37.